COM AT^SBNR test -- Binary read
COM V1.0	26.11.2004		T. Kleinmann
COM V1.1	22.02.2005		T. Kleinmann	added comments reg. subtypes to test
COM ToDo(S3): Extend AT^SBNW to test ALL types/subtypes (.vcf,.T9d)
COM ToDo(S3): Solve problem with ReceiveBufferOverflow (AT^SBNR="mid",0)

from attglobals import*

AT^SBNR=?
WAITFOR (1,'^SBNR: ("bmp",(0-2)),("mid",(0-10)),("dir",(1-30))')

for i in range (1,30):
	ATCMD(1,'AT^SBNR="dir",',i)
	WAITFOR(1,'^SBNR:')
	#WAIT 500

AT^SBNR="BMP",0
WAIT FOR OK

AT^SBNR="BMP",1
WAIT FOR OK

iOldTimeOut=SetReceiveTimeout(60000)

AT^SBNR="MID",0
WAIT FOR OK

SetReceiveTimeout(iOldTimeOut)

AT^SBNR="VCS",0
WAIT FOR OK


#---------------------------------------------------
COM Generation X75

COM Switch off echo
ATE0
WAIT FOR OK

#Test of AT^SBNW
AT^SBNW=?
WAITFOR (1,'^SBNW: ("bmp",(0)),("mid",(0)),("vcs",(1-30))')

#Upload entry to record 20
AT^SBNW="vcs",20,1,3
WAITFOR (1,'>')

ATCMD(1,'424547494E3A5643414C454E4441520D0A56455253494F4E3A312E300D0A424547494E3A564556454E540\
D0A43415445474F',chr(26))
WAIT FOR OK

AT^SBNW="vcs",20,2,3
WAITFOR (1,'>')

ATCMD(1,'524945533A414E4E49564552534152590D0A445453544152543A3139393931323133543130303030300D0A4\
4455343524950',chr(26))
WAIT FOR OK

#Interrogation of the current <type>,<subtype>,<actNumber>,<maxNumber>
AT^SBNW?
WAITFOR(1,'^SBNW:"vcs",20,2,3')

AT^SBNW="vcs",20,3,3
WAITFOR (1,'>')

ATCMD(1,'524945533A414E4E49564552534152590D0A445453544152543A3139393931323133543130303030300D0A4\
4455343524950',chr(26))
WAIT FOR OK

# Download entry from record 20
AT^SBNR="vcs",20
WAITFOR (1,'424547494E3A5643414C454E4441520D0A56455253494F4E3A312E300D0A424547494E3A564556454E540\
D0A43415445474F524945533A414E4E49564552534152590D0A445453544152543A31393939313231335431\
30303030300D0A4445534352495054494F4E3A572E20766F6E205369656D656E730D0A454E443A56455645\
4E540D0A454E443A5643414C454E4441520D0A')


#Delete record 20
AT^SBNW="vcs",20,0
WAIT FOR OK

Download empty record 20
AT^SBNR="vcs",20
WAIT FOR OK
